﻿Public Class Formatos

    Private Sub NegritaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegritaToolStripMenuItem1.Click
        Dim Fuente As New Font(txtEditor.Font, FontStyle.Bold)
        Me.txtEditor.Font = Fuente
    End Sub

    Private Sub CursivaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CursivaToolStripMenuItem1.Click
        Dim Fuente As New Font(txtEditor.Font, FontStyle.Italic)
        Me.txtEditor.Font = Fuente
    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
        Dim Fuente As New Font(txtEditor.Font, FontStyle.Regular)
        Me.txtEditor.Font = Fuente
    End Sub

    Private Sub SubrayadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubrayadoToolStripMenuItem.Click
        Dim Fuente As New Font(txtEditor.Font, FontStyle.Underline)
        Me.txtEditor.Font = Fuente
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Paises.Visible = True
    End Sub
End Class